home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / chklibl.arc / CHKLIBL.CLP next >
Encoding:
Text File  |  1991-12-04  |  1.2 KB  |  27 lines
  1.  CHKLIBL:    PGM        PARM(&LIB)
  2.              DCL        &LIB *CHAR 10
  3.              DCL        &LIBL *CHAR 275
  4.              DCL        &OFFSET   *DEC 3 VALUE(1)
  5.              DCL        &POSITION *DEC 3 VALUE(1)
  6.              DCL        &POS      *CHAR 3
  7.              MONMSG     MSGID(CPF0000)
  8.              RTVJOBA    USRLIBL(&LIBL)
  9.  CHKLIB:     IF         (%SST(&LIBL &OFFSET 10) *EQ &LIB) DO
  10.              CHGVAR     VAR(&POS) VALUE(&POSITION)
  11.              IF         COND(%SST(&POS 1 1) *EQ '0') THEN(CHGVAR +
  12.                           VAR(%SST(&POS 1 1)) VALUE(' '))
  13.              IF         COND(%SST(&POS 2 1) *EQ '0') THEN(CHGVAR +
  14.                           VAR(%SST(&POS 2 1)) VALUE(' '))
  15.              SNDPGMMSG  MSG('Library' *BCAT &LIB *BCAT 'found in +
  16.                           library list, position' *BCAT &POS) +
  17.                           MSGTYPE(*COMP)
  18.              ENDDO
  19.              ELSE       DO
  20.              CHGVAR     VAR(&OFFSET) VALUE(&OFFSET + 11)
  21.              CHGVAR     VAR(&POSITION) VALUE(&POSITION + 1)
  22.              IF         (&OFFSET *LT 275) GOTO CHKLIB
  23.              SNDPGMMSG  MSG('Library' *BCAT 'not found in library +
  24.                           list.') MSGTYPE(*COMP)
  25.              ENDDO
  26.  ENDPGM:     ENDPGM
  27.